Celestin Apprentice 4/Apprentice-Release4.iso/Languages/MacMETH 3.2.3/Examples/Out.MOD

Text File | 1995-12-13 | 481b | 30 lines

IMPLEMENTATION MODULE Out;

IMPORT InOut;

  PROCEDURE Open;
  BEGIN InOut.OpenOutput("");
  END Open;

  PROCEDURE Char(ch: CHAR);
  BEGIN InOut.Write(ch)
  END Char;

  PROCEDURE String(str: ARRAY OF CHAR);
  BEGIN InOut.WriteString(str)
  END String;

  PROCEDURE Real(x: REAL; n: INTEGER);
  BEGIN InOut.WriteReal(x, n)
  END Real;

  PROCEDURE Int(i, n: LONGINT);
  BEGIN InOut.WriteLongInt(i, SHORT(n))
  END Int;

  PROCEDURE Ln;
  BEGIN InOut.WriteLn
  END Ln;

END Out.